VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsProgressBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private A_ProgressBar As ProgressBar

Public Sub InitCls(ByRef vPB As ProgressBar)
    Set A_ProgressBar = vPB
End Sub

Public Sub Start(ByVal vCount As Long)
    A_ProgressBar.Value = 0
    A_ProgressBar.Min = 0
    A_ProgressBar.Max = vCount
End Sub

Public Sub Add()
    A_ProgressBar.Value = A_ProgressBar.Value + 1
End Sub
